home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_cyrus-imapd.idb / usr / freeware / bin / installsieve.z / installsieve
Text File  |  2001-07-06  |  5KB  |  167 lines
  1. #! /bin/sh
  2. exec /usr/bin/perl5 -x -S $0 ${1+"$@"} # -*-perl-*-
  3. #!perl -w
  4. # 
  5. # Copyright (c) 2000 Carnegie Mellon University.  All rights reserved.
  6. #
  7. # Redistribution and use in source and binary forms, with or without
  8. # modification, are permitted provided that the following conditions
  9. # are met:
  10. #
  11. # 1. Redistributions of source code must retain the above copyright
  12. #    notice, this list of conditions and the following disclaimer. 
  13. #
  14. # 2. Redistributions in binary form must reproduce the above copyright
  15. #    notice, this list of conditions and the following disclaimer in
  16. #    the documentation and/or other materials provided with the
  17. #    distribution.
  18. #
  19. # 3. The name "Carnegie Mellon University" must not be used to
  20. #    endorse or promote products derived from this software without
  21. #    prior written permission. For permission or any other legal
  22. #    details, please contact  
  23. #      Office of Technology Transfer
  24. #      Carnegie Mellon University
  25. #      5000 Forbes Avenue
  26. #      Pittsburgh, PA  15213-3890
  27. #      (412) 268-4387, fax: (412) 268-7395
  28. #      tech-transfer@andrew.cmu.edu
  29. #
  30. # 4. Redistributions of any form whatsoever must retain the following
  31. #    acknowledgment:
  32. #    "This product includes software developed by Computing Services
  33. #     at Carnegie Mellon University (http://www.cmu.edu/computing/)."
  34. #
  35. # CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
  36. # THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
  37. # AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
  38. # FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  39. # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
  40. # AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
  41. # OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  42. #
  43. use Cyrus::SIEVE::managesieve;
  44. use Getopt::Long;
  45.  
  46. $username = "";
  47.  
  48. $ret = GetOptions("v|views:s" => \$views,
  49.           "l|list" => \$list,
  50. #          "p|port:i" => \$port,
  51.           "i|installs:s" => \$installs,
  52.           "a|activates:s" => \$activates,
  53.           "d|deletes:s" => \$deletes,
  54. #          "m|mechanism:s" => \$mech,
  55.           "g|gets:s" => \$gets,
  56.                   "u|username:s" => \$username,
  57. #          "w|password:s" => \$pass
  58.                   );
  59. if (!$ret || $#ARGV != 0) { 
  60.     show_help();
  61.     exit;
  62. }
  63.  
  64. $acapserver = $ARGV[0];
  65.  
  66. sub list_cb {
  67.  
  68.   my($name, $isactive) = @_ ;
  69.   
  70.   print "$name ";
  71.   if ($isactive == 1) {
  72.     print " <- active script\n";
  73.   } else {
  74.     print "\n";
  75.   }
  76.  
  77. }
  78.  
  79. sub prompt {
  80.  
  81.   my($type, $prompt) = @_ ;
  82.  
  83.   if (($type eq "username") && (defined $username)) {
  84.       return $username;
  85.   } elsif (($type eq "authname") && (defined $username)) {
  86.       return $username;
  87.   } elsif (($type eq "realm") && (defined $realm)) {
  88.       return $realm;
  89.   }
  90.  
  91.   print "$prompt: ";
  92.  
  93.   $b = <STDIN>;
  94.   chop($b);
  95.   
  96.   $b;
  97. }
  98.  
  99. sub show_help {
  100.   print "NOTE: This program is deprecated. Please use sieveshell\n";
  101.   print "\n";
  102.   print "Usage:\n";
  103.   print "  installsieve [options] <server>\n";
  104.   print "\n";
  105.   print "  -v <name>    view script\n";
  106.   print "  -l           list available scripts\n";
  107. #  print "  -p <port>    port to connect to\n";
  108.   print "  -i <file>    filename of script to install\n";
  109.   print "  -a <name>    Set <name> as the active script\n";
  110.   print "  -d <name>    Delete <name> script from server\n";
  111. #  print "  -m <mech>    Mechanism to use for authentication\n";
  112.   print "  -g <name>    Get script <name> and save to disk\n";
  113.   print "  -u <user>    Userid/Authname to use\n";
  114. #  print "  -w <passwd>  Specify password (Should only be used for automated scripts)\n";
  115.   print "\n";
  116. }
  117.  
  118. #main code
  119.  
  120. my $obj = sieve_get_handle($acapserver,"prompt","prompt","prompt","prompt");
  121.  
  122. if (!defined $obj) {
  123.   die "Unable to connect to server";
  124. }
  125.  
  126. if (defined $installs) {
  127.   $ret = sieve_put_file($obj, $installs);
  128.   if ($ret != 0) { print "upload failed\n"; }
  129. }
  130.  
  131. if (defined $deletes) {
  132.   $ret = sieve_delete($obj, $deletes);
  133.   if ($ret != 0) { print "delete failed\n"; }
  134. }
  135.  
  136. if (defined $activates) {
  137.   $ret = sieve_activate($obj, $activates);
  138.   if ($ret != 0) { print "activate failed\n"; }
  139. }
  140.  
  141. if (defined $gets) {
  142.     $str = "";
  143.     $ret = sieve_get($obj, $gets, $str);
  144.     if ($ret != 0) { 
  145.     print "get failed\n"; 
  146.     } else {
  147.     open (OUTPUT,">$gets") || die "Unable to open $gets";
  148.     print OUTPUT $str;
  149.     close(OUTPUT);    
  150.     }
  151. }
  152. if (defined $views) {
  153.     $str = "";
  154.     $ret = sieve_get($obj, $views, $str);
  155.     if ($ret != 0) { 
  156.     print "get failed\n"; 
  157.     } else {
  158.     # view
  159.     print $str;
  160.     }
  161. }
  162.  
  163. if (defined $list) {
  164.   $ret = sieve_list($obj, "list_cb");  
  165.   if ($ret != 0) { print "List command failed\n"; }
  166. }
  167.